00100		DIMENSION N(72)
00200	1	TYPE 2
00300	2	FORMAT(' TYPE IN'/)
00400		ACCEPT 3,N
00500	3	FORMAT(72A1)
00600		TYPE 4
00700	4	FORMAT(' NUMS:'/)
00800		ACCEPT 5,M,L,J,K,I
00900	5	FORMAT(5I)
01000		CALL LOOP(M,L,J,K,I,N(1))
01100		TYPE 6,N
01200	6	FORMAT(1X72A1)
01300		GO TO 1
01400		END